Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_6429.txt

Text File | 1990-04-17 | 10KB | 441 lines

-- card: 6429 from stack: in
-- bmap block id: 8032
-- flags: 0000
-- background id: 18894
-- name: TerminalCloseUp
----- HyperTalk script -----
on openCard
  global env,sol,holder2
  hide message
  put empty into card field "Explainer"
  put empty into card field "Choice"
  put empty into card field "Category"
  put empty into fld "Tell"
  put empty into cd fld "Network"
  put env into cd fld "CPU"
  --engine begin
  get card field (env && sol) of card "Mac Grid"
  put empty into holder2
  repeat with i = 1 to the number of lines of it
    if item 2 of line i of it <> empty then
      put character 1 to 29 of line i of it & return after holder2
    end if
  end repeat
  if holder2 is empty then
    put "No" && env && sol && "solutions installed in this version" into card fld "Explainer"
    exit openCard
  end if
  repeat with i = 1 to the number of lines of holder2
    put item 2 of line i of holder2 & return after card field "Explainer"
  end repeat
end openCard

on closeCard
  put empty into fld "Tell"
  put "Reads:" & return into cd fld "Reads"
  put "Writes:" & return into cd fld "Writes"
  set hilite of cd btn id 20 to false
  set hilite of cd btn id 19 to false
end closeCard


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=168 top=247 right=303 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=92 top=98 right=185 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 2048
-- line height: 14
-- part name: Explainer
----- HyperTalk script -----
on mouseUp
  global env,holder2,prodname2,Reads2,Writes2,Network2
  set hilite of btn id 20 to false
  put "Reads:" & return into cd fld "Reads"
  put "Writes:" & return into cd fld "Writes"
  put "Communication Method(s):" & return & return & "------------" & return into cd fld "Network"
  put selectionAndHiliter() into cardline
  put line cardline of me into prodname2
  if env is "Digital" then
    put "$" into promptType
  else
    if env is "PC" then
      put ">" into promptType
    else
      put ":" into promptType
    end if
  end if
  if prodname2 is empty
  then
  answer "Empty Choice!" with "Try Again"
  exit mouseup
end if
if prodname2 is "No Solutions installed in this version." then
  put empty into prodname2
  exit mouseUp
else
  put promptType && prodname2 into cd fld "choice"
  repeat with i = 1 to the number of lines of holder2
    if item 2 of line i of holder2 is prodname2 then
      put ":" && item 3 of line i of holder2 into cd fld "Category"
      parseR2
      put Reads2 after cd field "Reads"
      parseW2
      put Writes2 after cd field "Writes"
      parseN2
      put Network2 after cd field "Network"
      exit repeat
    end if
  end repeat
end if
end mouseUP

on mouseEnter
  changeCurs 6069
  put "Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=246 right=264 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 2048
-- line height: 14
-- part name: Choice
----- HyperTalk script -----
on mouseUp
  get me
  if it is empty
  then
  put "Please choose a product!" into fld "Tell"
  exit mouseUp
else
  put char 3 to 28 of it into prod
  set cursor to busy
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Product Chosen Field" & return & "click for more info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=90 top=60 right=97 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 10240
-- line height: 16
-- part name: header


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=289 top=247 right=266 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 2048
-- line height: 13
-- part name: Category
----- HyperTalk script -----
on mouseEnter
  put "Category Field" & return & "category of product" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=104 top=277 right=299 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Get Vendor Info
----- HyperTalk script -----
on mouseUp
  if cd field "Choice" is empty
  then
  put "Select a Product!" into fld "Tell"
  exit mouseUp
else
  set cursor to busy
  send mouseUp to cd fld "Choice"
end if
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  changeCurs 6069
  put "Go to Products Button" & return & "goes to the product card" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=283 top=277 right=299 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Back to Room
----- HyperTalk script -----
on mouseUp
  global env,theRoom
  set lockscreen to true
  set cursor to busy
  go cd theRoom
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  global env
  changeCurs 6069
  put "Back to Room Button" & return & "goes to the" && env && "Room" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=91 top=196 right=247 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: Reads
----- HyperTalk script -----
on mouseEnter
  put "the file types the" & return & "application can open" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 24 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=268 top=196 right=249 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: Writes
----- HyperTalk script -----
on mouseEnter
  put "the file types the" & return & "application can save" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 25 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=303 top=98 right=184 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 2048
-- line height: 14
-- part name: Network
----- HyperTalk script -----
on mouseEnter
  put "Network Communication Method" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=91 top=41 right=60 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 2048
-- line height: 16
-- part name: CPU


-- part 29 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=12 top=0 right=30 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: FloorName


-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=189 top=112 right=128 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: explainerHiliter
----- HyperTalk script -----
on mouseUp
  --∆ This is a dummy button required by the selectionAndHiliter routine
end mouseUp



-- part contents for card part 7
----- text -----
Click on a product for info & to configure Room
---------------------------------------------

-- part contents for card part 22
----- text -----
Reads:


-- part contents for card part 24
----- text -----
Writes:


-- part contents for card part 27
----- text -----
Digital

-- part contents for card part 29
----- text -----
Host Screen

-- part contents for card part 2
----- text -----
20/20
DECdecision
DECwrite for VMS
WordPerfect 5.0 for the VAX/


-- part contents for card part 25
----- text -----
Communication Method(s):

------------


-- part contents for card part 5
----- text -----
$ DECdecision

-- part contents for card part 12
----- text -----
: Spreadsheet